home *** CD-ROM | disk | FTP | other *** search
/ BigMax 6 / BigMax nº 6 [rebuilt].iso / DEMOS / FOFAO / QUEBRA4.DXR / 00037.ls < prev    next >
Encoding:
Text File  |  1996-11-20  |  866 b   |  41 lines
  1. on mouseDown
  2.   d37()
  3. end
  4.  
  5. on rightMouseDown
  6.   d37()
  7. end
  8.  
  9. on mouseUp
  10.   e37()
  11. end
  12.  
  13. on rightMouseUp
  14.   e37()
  15. end
  16.  
  17. on e37
  18.   global sprt, w, he, h
  19.   if sprite sprt within (sprt - 20) then
  20.     set the puppet of sprite sprt to 1
  21.     set the visible of sprite sprt to 0
  22.     set the puppet of sprite (sprt - 20) to 1
  23.     set the puppet of sprite (sprt - 20) to 1
  24.     set w to the width of sprite (sprt - 20)
  25.     set he to the height of sprite (sprt - 20)
  26.     set the width of sprite (sprt - 20) to w - 20
  27.     set the height of sprite (sprt - 20) to he - 20
  28.     set the puppet of sprite (sprt - 20) to 1
  29.     set the visible of sprite (sprt - 20) to 1
  30.   end if
  31. end
  32.  
  33. on d37
  34.   global sprt, horiz, verti
  35.   set the locH of sprite sprt to horiz
  36.   set the locV of sprite sprt to verti
  37.   set sprt to 37
  38.   set horiz to the locH of sprite sprt
  39.   set verti to the locV of sprite sprt
  40. end
  41.